object FormAnadirPrograma: TFormAnadirPrograma Left = 406 Top = 170 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle Caption = 'A�adir programa' ClientHeight = 310 ClientWidth = 416 Color = 14609391 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object PlaButtonAceptar: TPlaButton Left = 256 Top = 280 Width = 70 Height = 21 HelpContext = 193 Caption = 'Aceptar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = PlaButtonAceptarClick Default = True end object PlaButtonCancelar: TPlaButton Left = 333 Top = 280 Width = 70 Height = 21 HelpContext = 194 Caption = 'Cancelar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 Cancel = True ModalResult = 2 end object PlaGroupBoxPrograma: TPlaGroupBox Left = 14 Top = 11 Width = 390 Height = 258 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = 13977088 TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Caption = 'Programa' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object Label1: TLabel Left = 58 Top = 19 Width = 322 Height = 26 AutoSize = False Caption = 'Introduce los datos del nuevo programa cuya comunicaci�n deseas ' + 'configurar.' WordWrap = True end object Image1: TImage Left = 11 Top = 22 Width = 32 Height = 32 Picture.Data = {} Transparent = True end object Label2: TLabel Left = 58 Top = 59 Width = 27 Height = 13 Caption = 'Ruta:' end object Label3: TLabel Left = 58 Top = 104 Width = 255 Height = 26 Caption = 'Selecciona la acci�n a realizar cuando este programa intente con' + 'ectarse a la red' WordWrap = True end object LabelAvanzadas: TLabel Left = 58 Top = 184 Width = 275 Height = 41 AutoSize = False Caption = 'Las opciones avanzadas te permiten configurar los puertos y dire' + 'cciones a los que deseas permitir el acceso.' WordWrap = True end object Label4: TLabel Left = 58 Top = 152 Width = 75 Height = 13 AutoSize = False Caption = 'Acci�n:' end object PlaEditRuta: TPlaEdit Left = 58 Top = 75 Width = 273 Height = 21 HelpContext = 230 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 Transparent = False OnChange = PlaEditRutaChange end object PlaButtonRuta: TPlaButton Left = 343 Top = 75 Width = 35 Height = 21 Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = PlaButtonRutaClick end object PlaButtonOpcionesAvanzadas: TPlaButton Left = 58 Top = 224 Width = 113 Height = 21 HelpContext = 227 Caption = 'Opciones avanzadas' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = PlaButtonOpcionesAvanzadasClick end object ComboAcciones: TPlaComboBox Left = 140 Top = 148 Width = 191 Height = 21 HelpContext = 224 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Style = csDropDownList TabOrder = 3 OnChange = ComboAccionesChange Items.Strings = ( 'Permitir comunicaci�n' 'Denegar comunicaci�n' 'Preguntar') end end object OpenDialog: TOpenDialog FilterIndex = 0 Left = 364 Top = 54 end end